home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / pbtool.exe / IAMGONE.BAS < prev    next >
BASIC Source File  |  1991-10-18  |  1KB  |  56 lines
  1. '----------------------------------------------------------
  2. '  PROGRAM: IAMGONE.BAS        PROGRAMMER: A. KELLETT
  3. '  DATE-WRITTEN: 06/13/91
  4. '  USING POWER BASIC V2.10A
  5. '
  6. '  THIS PROGRAM DISPLAYS A MESSAGE AT RANDOM LOCATIONS ON
  7. '  THE SCREEN WITH A MESSAGE YOU CHOOSE (LIKE "OUT OF OFFICE")
  8. '  VERSION: 0.00    LAST UPDATED: 00/00/00
  9. '----------------------------------------------------------
  10. '*** ALLOWS NAMED COLORS ***
  11. $INCLUDE "COLORS.INC"
  12.  
  13. CLS
  14. CPU.SPEED = 6000
  15. REM ** TRY 1500 FOR 8088, 4000 FOR 80286, 6000 FOR 80386, ??? FOR 80486 **
  16. PRINT "IAMGONE  -  LEAVES A MESSAGE ON YOUR SCREEN"
  17. PRINT "WHAT IS THE MESSAGE TO DISPLAY? ":PRINT
  18. LINE INPUT MSG$
  19. PRINT:PRINT "PRESS ANY KEY TO END THE SCREEN BLANKER..."
  20.  
  21. DELAY 2.5
  22.  
  23. LENMSG% = LEN(MSG$)
  24. BACKCOLOR = BLACK%
  25. FRONTCOLOR = YELLOW%
  26.  
  27. ROWNUM% = 7:COLNUM% = 7
  28. COLOR FRONTCOLOR, BACKCOLOR
  29.  
  30. KY$ = ""
  31. WHILE KY$ = ""
  32.    CLS
  33.    LOCATE ROWNUM%, COLNUM%
  34.    PRINT MSG$
  35.    ROWNUM% = INT(RND * 20) + 1
  36.    COLNUM% = INT(RND * (80 - LENMSG%)) + 1
  37.    LOCATE ROWNUM%, COLNUM%
  38.    PRINT TIME$
  39.    CALL WAITAWHILE(3)
  40.    KY$ = INKEY$:KY$ = UCASE$(KY$)
  41. WEND
  42. CLS
  43. PRINT "IAMGONE  --  FINISHED...  ":PRINT:PRINT
  44.  
  45. END
  46. '
  47. '  CALL WAITAWHILE(3) FOR 3 SECONDS PAUSE
  48. '----------------------------------------------------------
  49. SUB WAITAWHILE (WAITTIME%)
  50.    PAUSE = TIMER + WAITTIME%
  51.    WHILE TIMER < PAUSE
  52.       '** DO NOTHING **
  53.    WEND
  54. END SUB
  55.  
  56.